約 2,646,978 件
https://w.atwiki.jp/mascotshimeji/pages/18.html
動作 立つ系 立つ、歩く、走る、猛ダッシュ 座る系 座る、座ってマウスを見上げる、座って首を回す、楽に座る、足を下ろして座る 、足をぶらぶらさせる 寝そべる系 寝そべる、ずりずり 天井系 天井に掴まる、天井を伝う 壁系 壁に掴まる、壁を登る IE系 IEを持って落ちる、IEを持って歩く、IEを持って走る、IEを投げる 落下系 ジャンプ、落ちる、跳ねる、転ぶ ドラッグ系 つままれる、抵抗する 行動 ワークエリアの下辺でみられる行動 立ってボーっとする 座ってボーっとする 寝そべってボーっとする 座って足をぶらぶらさせる ワークエリアの下辺を歩く ワークエリアの下辺を走る ワークエリアの下辺をずりずり ワークエリアの下辺の左の端っこで座る ワークエリアの下辺の右の端っこで座る 走ってワークエリアの下辺の左の端っこで座る 走ってワークエリアの下辺の右の端っこで座る ワークエリアの下辺から左の壁によじのぼる ワークエリアの下辺から右の壁によじのぼる 走ってワークエリアの下辺から左の壁によじのぼる 走ってワークエリアの下辺から右の壁によじのぼる IEの下に飛びつく 引っこ抜く ワークエリアの壁でみられる行動 壁に掴まってボーっとする 壁から落ちる 壁を途中まで登る 壁を登る(壁の頂上に到着したら天井を伝う) ワークエリアの上辺でみられる行動 天井に掴まってボーっとする 天井から落ちる ワークエリアの上辺を伝う IEの天井でみられる行動 立ってボーっとする 座ってボーっとする 寝そべってボーっとする 座って足をぶらぶらさせる IEの天井を歩く IEの天井を走る IEの天井でずりずり IEの天井の左の端っこで座る IEの天井の右の端っこで座る 走ってIEの天井の左の端っこで座る 走ってIEの天井の右の端っこで座る IEの天井の左の端っこから飛び降りる IEの天井の右の端っこから飛び降りる 走ってIEの天井の左の端っこから飛び降りる 走ってIEの天井の右の端っこから飛び降りる IEの壁でみられる行動 壁に掴まってボーっとする 壁から落ちる IEの壁を途中まで登る IEの壁を登る ページ編集する
https://w.atwiki.jp/girlsroyale/pages/419.html
しめじプロフィール カード一覧 しめじ プロフィール 名前 しめじ マスター 鵜野うずめ CV 赤﨑千夏 URD 0151 誕生日 4月6日 身長 155cm 体重 43kg BWH 86/58/87 好きな食べ物 チョコレート 嫌いな食べ物 しいたけ 特徴 優しくておっとりな妹系 カード一覧 [花火がキレイですぅ]しめじ [純真無垢]しめじ [牛さんパジャマですぅ]しめじ [海って大きいです]しめじ [今よ！ファンタジスタドール]しめじ [パーティですぅ]しめじ [バトルスタート]しめじ [バトル]しめじ [ドール]しめじ [ステゴロのしめじ]しめじ [コレクションですぅ]しめじ [アウェイキング]しめじ [できましたぁ]しめじ
https://w.atwiki.jp/knapia/pages/4.html
＜目的＞ インターンシップは、学生が一定期間企業や団体の中で研修生として働き、就職活動する際の業種研究に役立てたり学校で学ぶことを明確にしたりするのに役立てる制度です。その意義は就業体験すること自体にあり、お金を稼ぐことを目的としたアルバイトとは根本的に異なります。 特定非営利活動法人関西国際交流団体協議会は、国際交流や国際協力を目的として活動する団体（ＮＰＯ）が加盟するネットワーク組織で、1984年に設立されました。会員間の連携事業だけでなく、他の分野の民間団体や行政機関、国際機関、企業・経済団体、教育機関などとの連携、ＮＰＯ全体の組織基盤強化や市民の意識啓発や活動への参加促進を図ることを目的としています。 本協議会のインターンシッププログラムは、上記の目的に添い、国際交流・協力分野、ＮＰＯの活動に興味を持つ学生に、将来の仕事の選択肢のひとつとして、本協議会がネットワーク組織として行っているさまざまな事業の一端を経験してもらい、ひいては国際交流・協力分野の裾野を広げることをねらいとしています。 ＜スケジュール＞ インターンシッププログラムの目的について理解していただき、また希望する分野の業務が体験できるよう、以下のような手続きを行います。 １．オリエンテーション・・・ 当協議会の事業概要及びインターンシッププログラムで行う事業と業務の概要を説明します。また事業担当者から希望する業務や期間、事務所に来る曜日などについて聞き取りを行います。選考結果や勤務開始日については後日連絡します。 ２．業務・・・ 担当する事業の業務にあわせて、定期的に事務所で業務を行います。 インターンシップが始まれば業務内容や出勤については直接事業担当者と調整をしてください。そのほか、インターンシッププログラム全体に関しての相談や質問は徳山が対応します。 なお、月１回インターン生のミーティングを予定しています。 ３．終了前レポート・・・ インターンシッププログラムを終えるにあたり、プログラムを通じて得たもの、期待したが得られなかったものなどについてレポートを提出していただきます。当協議会からは事務局長と事業担当者から将来の就業についてのアドバイスを行います。 ＜勤務＞ 勤務については以下の通りです。 ①就業時間は原則として午前１０時～午後５時３０分です。 ②勤務した日は勤務簿に捺印していただきます。 ③前月末までに翌月の勤務できる日をインターン・ローテンション表に記入していただきます。 ＜確認事項＞ インターンシッププログラムの実施にあたっては、以下の項目について確認してください。 ①インターンシッププログラム中の交通費・日当の支給はありません。 ②通勤中や業務中の事故は本人の責任となります。万が一、通勤中や業務中事故にあった場合は速やかに当協議会に連絡を入れてください。 ③業務中に知り得た情報に関しては、守秘義務を遵守し、プログラム終了後も他に漏らすことを禁じます。許可なく資料をコピーし、外部に持ち出すことも禁じます。 ④インターンシッププログラムはあくまで就業体験の機会を提供するもので、将来の採用を前提とするものではありません。 ⑤大学等との協定を結んで行うインターンシッププログラムは各覚書に準拠するため、この限りではありません。
https://w.atwiki.jp/pesci_radio/pages/78.html
イメージキャラクター：ＤＩＯ様＋ぶなしめじ＋エリンギ＋まいたけ スタンド名：ハイ！うりぃエステス キメラにまさかのキノコが含まれることに。 wiki更新遅くてごめんね。本人いわくＭだそうです。 意外とアドリブに弱い！！？？ ＷＲＹＹＹＹＹＹというときは魂を震わせるらしい。 下ネタへの反応が良いようだ。 ドＭも把握。 ＢＢＲでは「しめじもわすれないで･･･」という かわいい発言を残す
https://w.atwiki.jp/ce00582/pages/22.html
Private Sub Command1_Click() Dim ks As Single Dim a As Single Dim beta As Single Dim r1 As Single Dim n As Single Dim cx(1 To 100) As Single Dim cp(1 To 100) As Single Dim k(1 To 100) As Single Dim h As Single Dim k1 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim e As Single beta = 0.95 a = 0.33 ks = ((1 / beta - 1) / a) ^ (1 / (a - 1)) Debug.Print ks h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h cx(n) = k(n) ^ a Next t1 = 0 Do Until t1 100 For n = 10 To 90 k1 = k(n) + k(n) ^ a - cx(n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 c1 = cx(n2) + (n1 - n2) * (cx(n3) - cx(n2)) r1 = a * k1 ^ (a - 1) cp(n) = c1 / (beta * (1 + r1)) Next e = 0 For n = 10 To 90 e = e + (cx(n) - cp(n)) ^ 2 Next For n = 10 To 90 cx(n) = cp(n) Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Debug.Print t1, e Loop End Sub
https://w.atwiki.jp/ce00582/pages/24.html
Private Sub Command1_Click() Dim ks As Single Dim a As Single Dim beta As Single Dim r1 As Single Dim n As Single Dim cx(1 To 100) As Single Dim cp(1 To 100) As Single Dim lx(1 To 100) As Single Dim lp(1 To 100) As Single Dim k(1 To 100) As Single Dim h As Single Dim k1 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim e As Single Dim ls As Single ls = 0.5 beta = 0.95 a = 0.33 ks = ls * ((1 / beta - 1) / a) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h lx(n) = ls cx(n) = k(n) ^ a * lx(n) ^ (1 - a) Next t1 = 0 Do Until t1 100 For n = 10 To 90 k1 = k(n) + k(n) ^ a * lx(n) ^ (1 - a) - cx(n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 c1 = cx(n2) + (n1 - n2) * (cx(n3) - cx(n2)) l1 = lx(n2) + (n1 - n2) * (lx(n3) - lx(n2)) r1 = a * k1 ^ (a - 1) * l1 ^ (1 - a) cp(n) = c1 / (beta * (1 + r1)) w1 = (1 - a) * k(n) ^ a * lx(n) ^ (-a) lp(n) = 1 - cx(n) / w1 Next e = 0 For n = 10 To 90 e = e + (cx(n) - cp(n)) ^ 2 + (lx(n) - lp(n)) ^ 2 Next For n = 10 To 90 cx(n) = cp(n) lx(n) = lp(n) Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Debug.Print t1, e Loop End Sub
https://w.atwiki.jp/ce00582/pages/44.html
Private Sub Command1_Click() Dim ks As Single Dim a As Single Dim beta As Single Dim r1 As Single Dim n As Single Dim cx(1 To 100) As Single Dim cp(1 To 100) As Single Dim k(1 To 100) As Single Dim h As Single Dim k1 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim e As Single Dim de As Single de = 0.05 beta = 0.95 a = 0.33 ks = ((1 / beta + de - 1) / a) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h cx(n) = k(n) ^ a - de * k(n) Next t1 = 0 Do Until t1 100 For n = 10 To 90 k1 = k(n) + k(n) ^ a - cx(n) - de * k(n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 c1 = cx(n2) + (n1 - n2) * (cx(n3) - cx(n2)) r1 = a * k1 ^ (a - 1) - de cp(n) = c1 / (beta * (1 + r1)) Next e = 0 For n = 10 To 90 e = e + (cx(n) - cp(n)) ^ 2 Next For n = 10 To 90 cx(n) = cp(n) Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Debug.Print t1, e Loop End Sub
https://w.atwiki.jp/ce00582/pages/788.html
Function countb(bx As Single, bs As Single, h As Single) As Single Dim zs As Single Dim z1 As Single Dim z2 As Single Dim ct As Single zs = (bx - bs) / h z1 = Int(zs) z2 = z1 + 1 ct = z1 If (zs - z2) ^ 2 (zs - z1) ^ 2 Then ct = z2 countb = ct End Function Private Sub Command1_Click() Dim m As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim q As Single Dim qx As Single Dim pp As Single Dim h As Single Dim u(2 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim b(2 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim fastu(-1 To 1, -1 To 1) As Single Dim fastb(-1 To 1, -1 To 1) As Single Dim fastv(-1 To 1, -1 To 1, -50 To 50) As Single Dim endu(-1 To 1, -1 To 1) As Single Dim endb(-1 To 1, -1 To 1) As Single Dim endv(-1 To 1, -1 To 1) As Single Dim v(2 To 9, -1 To 1, -1 To 1, -1 To 1, -100 To 100) As Single Dim bx As Single Dim bs As Single Open "c /m3.txt" For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 n1 = a1 n2 = a2 fastu(n1, n2) = a3 fastb(n1, n2) = a4 Loop Close #1 For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 fastv(n1, n2, q) = -999 Next Next Next h = 0.01 For n1 = -1 To 1 For n2 = -1 To 1 bx = fastb(n1, n2) bs = fastb(0, 0) q = countb(bx, bs, h) fastv(n1, n2, q) = fastu(n1, n2) Debug.Print n1, n2, q Next Next End Sub
https://w.atwiki.jp/ce00582/pages/32.html
Private Sub Command1_Click() Dim ks As Single Dim a As Single Dim beta As Single Dim r1 As Single Dim n As Single Dim cx(1 To 100) As Single Dim cp(1 To 100) As Single Dim lx(1 To 100) As Single Dim lp(1 To 100) As Single Dim k(1 To 100) As Single Dim h As Single Dim k1 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim e As Single Dim ls As Single ls = 0.5 beta = 0.95 a = 0.33 ks = ls * ((1 / beta - 1) / a) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h lx(n) = ls cx(n) = k(n) ^ a * lx(n) ^ (1 - a) Next t1 = 0 Do Until t1 100 For n = 10 To 90 k1 = k(n) + k(n) ^ a * lx(n) ^ (1 - a) - cx(n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 c1 = cx(n2) + (n1 - n2) * (cx(n3) - cx(n2)) l1 = lx(n2) + (n1 - n2) * (lx(n3) - lx(n2)) r1 = a * k1 ^ (a - 1) * l1 ^ (1 - a) cp(n) = c1 / (beta * (1 + r1)) Next w1 = (1 - a) * k(n) ^ a * lx(n) ^ (-a) lp(n) = 1 - cx(n) / w1 e = 0 For n = 10 To 90 e = e + (cx(n) - cp(n)) ^ 2 + (lx(n) - lp(n)) ^ 2 Next For n = 10 To 90 cx(n) = cp(n) lx(n) = lp(n) Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Loop Dim ms As Single Dim px(1 To 100) As Single Dim ps(1 To 100) As Single Dim p1 As Single Dim p2 As Single Dim p3 As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim pi As Single Dim pxs As Single ms = 50 For n = 1 To 100 px(n) = 1 Next t4 = 0 Do Until t4 100 For n = 10 To 90 p1 = 1.1 * px(n) p2 = 0.9 * px(n) k1 = k(n) + k(n) ^ a * lx(n) ^ (1 - a) - cx(n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 pxs = px(n2) + (n1 - n2) * (px(n3) - px(n2)) l1 = lx(n2) + (n1 - n2) * (lx(n3) - lx(n2)) r1 = a * k1 ^ (a - 1) * l1 ^ (1 - a) pi = pxs / p1 - 1 iss = (1 + pi) * (1 + r1) - 1 z1 = iss * ms / (cx(n) * (1 + iss)) - p1 t3 = 0 Do Until t3 100 pi = pxs / p2 - 1 iss = (1 + pi) * (1 + r1) - 1 z2 = iss * ms / (cx(n) * (1 + iss)) - p2 p3 = p2 - z2 * (p2 - p1) / (z2 - z1) If z2 ^ 2 10 ^ (-5) Then t3 = 1000 p1 = p2 p2 = p3 z1 = z2 t3 = t3 + 1 Loop ps(n) = p2 Next e = 0 For n = 10 To 90 e = e + (px(n) - ps(n)) ^ 2 Next For n = 10 To 90 px(n) = ps(n) Next If e 10 ^ (-5) Then t4 = 1000 t4 = t4 + 1 Loop For n = 10 To 90 Debug.Print px(n) Next End Sub
https://w.atwiki.jp/ce00582/pages/40.html
Private Sub Command1_Click() Dim ks As Single Dim a As Single Dim beta As Single Dim r1 As Single Dim n As Single Dim cx(1 To 10, 1 To 100) As Single Dim cp(1 To 10, 1 To 100) As Single Dim lx(1 To 10, 1 To 100) As Single Dim lp(1 To 10, 1 To 100) As Single Dim k(1 To 100) As Single Dim h As Single Dim k1 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim e As Single Dim m As Single Dim th(1 To 10) As Single For m = 1 To 10 th(m) = 0.95 + 0.01 * m Next beta = 0.95 a = 0.33 ls = 0.5 ks = ls * ((1 / beta - 1) / a) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h For m = 1 To 10 lx(m, n) = ls cx(m, n) = th(m) * k(n) ^ a * lx(m, n) ^ (1 - a) Next Next t1 = 0 Do Until t1 100 For m = 1 To 10 For n = 10 To 90 k1 = k(n) + th(m) * k(n) ^ a * lx(m, n) ^ (1 - a) - cx(m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 uc = 0 For m1 = 1 To 10 c1 = cx(m1, n2) + (n1 - n2) * (cx(m1, n3) - cx(m1, n2)) l1 = lx(m1, n2) + (n1 - n2) * (lx(m1, n3) - lx(m1, n2)) r1 = th(m1) * a * k1 ^ (a - 1) * l1 ^ (1 - a) uc = uc + (beta * (1 + r1)) / c1 Next uc = 0.1 * uc cp(m, n) = 1 / uc w1 = (1 - a) * th(m) + k(n) ^ a * lx(m, n) ^ (-a) lp(m, n) = 1 - cx(m, n) / w1 Next Next e = 0 For m = 1 To 10 For n = 10 To 90 e = e + (cx(m, n) - cp(m, n)) ^ 2 + (lx(m, n) - lp(m, n)) ^ 2 Next Next For m = 1 To 10 For n = 10 To 90 lx(m, n) = lp(m, n) cx(m, n) = cp(m, n) Next Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Loop Dim ms As Single Dim px(1 To 10, 1 To 100) As Single Dim ps(1 To 10, 1 To 100) As Single Dim p1 As Single Dim p2 As Single Dim p3 As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim pi As Single Dim pxs As Single ms = 50 For m = 1 To 10 For n = 1 To 100 px(m, n) = 1 Next Next t4 = 0 Do Until t4 1000 For m = 1 To 10 For n = 10 To 90 p1 = 1.1 * px(m, n) p2 = 0.9 * px(m, n) k1 = k(n) + th(m) * k(n) ^ a * lx(m, n) ^ (1 - a) - cx(m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 z1 = 0 For m1 = 1 To 10 pxs = px(m1, n2) + (n1 - n2) * (px(m1, n3) - px(m1, n2)) l1 = lx(m1, n2) + (n1 - n2) * (lx(m1, n3) - lx(m1, n2)) r1 = a * k1 ^ (a - 1) * l1 ^ (1 - a) pi = pxs / p1 - 1 iss = (1 + pi) * (1 + r1) - 1 z1 = z1 + iss * ms / (cx(m, n) * (1 + iss)) Next z1 = 0.1 * z1 z1 = z1 - p1 t3 = 0 Do Until t3 100 z2 = 0 For m1 = 1 To 10 pxs = px(m1, n2) + (n1 - n2) * (px(m1, n3) - px(m1, n2)) l1 = lx(m1, n2) + (n1 - n2) * (lx(m1, n3) - lx(m1, n2)) r1 = a * k1 ^ (a - 1) * l1 ^ (1 - a) pi = pxs / p2 - 1 iss = (1 + pi) * (1 + r1) - 1 z2 = z2 + iss * ms / (cx(m, n) * (1 + iss)) Next z2 = 0.1 * z2 z2 = z2 - p2 p3 = p2 - z2 * (p2 - p1) / (z2 - z1) If z2 ^ 2 10 ^ (-5) Then t3 = 10000 p1 = p2 p2 = p3 z1 = z2 t3 = t3 + 1 Loop ps(m, n) = p2 Next Next e = 0 For m = 1 To 10 For n = 10 To 90 e = e + (px(m, n) - ps(m, n)) ^ 2 Next Next For m = 1 To 10 For n = 10 To 90 px(m, n) = ps(m, n) Next Next If e 10 ^ (-5) Then t4 = 1000 t4 = t4 + 1 Debug.Print t4, e Loop For n = 10 To 90 Debug.Print px(5, n) Next End Sub